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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED. 


® 

* 

* 

. f 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
TWARE A OTHER * 

® 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. * 
+ 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

!® CORPORATION. * 
* 

* 

® 

o 

® 

7 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT == The DEC Standard Editor | 

i ABSTRACT: | 

This module fixes up the screen data base if we are in NOTRUNCATE mode. 

! ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: John Sauter, CREATION DATE: November 1, 1983 

: MODIFIED BY: 

1-001 - a inal. Thgsis a stub which always forces the data base to be rebuilt. 
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01-Nov-19 

1-002 - Enable this routine. JBS 02-Nov-1982 
1-005 = Fix a problem in counting records. JBS Be-Hov=196e 
1-004 = Fix backwards search bug. SMB 25-Nov-1982 
1- 3 - Worry about geheted Lines when scanning backwards. JBS 25-Nov-1982 
$ - pov ine handling of EDTS$G_SHF. JBS 14=Dec- 
Fix tabbing a the end of-a Line. 103 15-Dec-1982 
1-008 - Remove the edit buffer. JBS 27-Dec-1982 y ; 
-009 - Fix a bug in pings the current gorges pginter which caused excessive rebuilding. JBS 30-Dec-198 | 
bISs6 HANGES. JBS 83 


1-010 - Support ANY -Apr- 

1-011 = Remove EDT$$G_ANY_CHANGES; this routine is only called if there have been changes. 
Also, allocate and deallocate Lines in the screen data base in simple cases, to 
avoid some rebuilds of the screen data base. JBS 19-Apr-1983 


NOUS WN $0 ODNOA UE WN 2 OOO NOUS WIN (OOD NOUE WD "OO DNAUS WN OOONOUSWh 


. 
. 
. 
. 
. 
a 
. 
° 
. 
* 
. 
o 
. 
° 
. 
* 
. 
. 
. 
. 
. 
6 
+ 
* 
° 
& 
- 
° 
. 
° 
. 
° 
7 
e 
. 
o 
. 
° 
. 
* 
. 
° 
. 
. 
. 
a 
- 
6 
. 
. 
. 
*. 
. 
e 
. 
° 
e 
. 
. 
. 
. 
. 
o 
. 
° 
° 
~ 
. 
os 
e 
. 
a 
. 
- 
+ 
° 
. 
° 
> 
© 
. 
° 
. 
e 
. 
° 
. 
co 
. 
e 
. 
° 
° 
. 
~ 
. 
. 
. 
. 
. 
7 
= 
. 
° 
a 
. 
a 
. 
6 
. 
© 


ee el el el el eel cel cee cel eel eel eel eel eel eel el eel cel eel eel eel el cl el cel el cel el eel cel eel eel cel eel cel el eel el el el cel el eel eel cel eel eld el ld eld el 


PUPP B BB BBE BE BE EAI NII IIo non PON NO NNN — 


ER) LEMOTRUN 


EDTSFIXNOTRUN = Fix screen data base in NOTRUNC 18-s¢ tae 1 99: $9: rt; aE E IRS DL 


1 
1 
1 
1 
1 
1 
1 
1 
1 


#evpeuen 
oo 

3 Se 
ONAUIL UT 


(rs 


- Don't re 


When rec 


aint 


Page af 


te the Length of a deleted Line. JBS 23-May-1983 


ng a 


Fix an error dh 
Don't change an 


If we undelete the current Line, adjust the record number o 
Fix breaking a Line at its wrap point. JBS 23-Jun-19 
Rather than failing if the screen data base is bad, just rebuild it. JBS 22-Jul-1983 


dee 4c843 streap 0 go! ay i t no longer deleted. JBS 25-May-1983 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE 'EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTS$FIX_NOTRUNC : NOVALUE; 


INCLUDE FILES: 
REQUIRE ‘EDTSRC:EDTREQ'; 


i MACROS: 

} NONE 

EQUATED SYMBOLS: 
NONE 

} OWN STORAGE: 

} NONE 

} EXTERNAL REFERENCES: 
; In the routine 


EDTSFIXNOTRUN E 
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NOTRUN = Fix 


GLOBAL ROUTINE EDTS$FIX_NOTRUNC 
: NOVALUE = 


'e¢ 
FUNCTIONAL DESCRIPTION: 


2 
creen data base in NOTRUNC 16- “19 
X_NOTRUNC = fix screen data base in NOTR 1 4 


ZSBTTL "EDTSSFIX_NOTRUNC = fix screen data base in NOTRUNCATE mode’ 


-Sep-19 


Bt 98:38:38 eae eM Ptaseavmc Bere Page (54 


! Fix screen data base in NOTRUNCATE mode 


Fix the screen data base if we are in NOTRUNCATE mode. If a character is 


inserted on a Line, or deleted from a Li 


ne, or even replaced (since characters 


have different widths), the Limits of this Line must be recomputed. If this Line's 
Limits change the Limits of the next Line may also change. 


FORMAL PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


EDT$S$A_LN_PTR 


D 

D al 
DT$ = a 
DT$$A~SCR~BUF 
DTSSA~ 
OT$$L-CS_CN 
DT$$L~CUR_SCRLN 
DT$$A~CSR~SCRPTR 
DT$$A_wk_CN 
DT$$G_MEA_CNT 

D SHF 


G 
EDTS$$G_TI_WID 


Mmmmmmememememen 
ee ee 
= AA 


! IMPLICIT OUTPUTS: 


EDT$$G_SCR_REBUILD 
EDTS$$A-FST-AVLN 
EDT$$G_RECS_INSERTED 


ROUTINE VALUE: 


NONE 


! SIDE EFFECTS: 


MANY 


BEGIN 
cate ROUTINE 


SC_MOVTOLN, 
MT_CHWID, 


DT$$ 
DISSF 
DTS$SC_FNDREC: 


—-O 


record in the work file relative to the current record 
mpute the width of a character 
nd the screen pointer for the current record 
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EDTSFIXNOTRUN EDTSFIXNOTRUN = Fix screen data base in NOTRUNC 1b-se -1984 00:26:5 AX-11 Bliss-32 V4.0-74 Page 5) 
vO4u=000 EDTSSFIX_NOTRUNC = fix screen data base in NOTR 1 = 35p= 1984 19:38:05 EDT. SRCIFLNOTRU Biri : (3), 
; 158 7 | 
; 18 7 cate. 
; 160 7 EDTSSA_LN_PTR, ' Current Line character position 
; 183 ; EDT SSc- ENR REBUILD thi} lie ottean date base 
; 188 7 : EDTS$SA-FST-SCRPTR : REF SCREEN_LINE, i First screen line info address 
: 188 at DISK LWOEPTY SREP CR BLORE ||” (PtSE Of evar lable Lines 
: 166 736 EDTSSL-CUR-SCRLN : REF LNTBLOCK, 
s 116 7 EDTSSA_SCR_BUF : REF TBCB_BLOCK, 
; 168 0738 EDTSSA_CUR BUF : REF TBCB-BLOCK, 
: 199 739 EDTSS$SL_CS_CN : REF LN BLOCK 
: 170 740 EDT$S$A_CSR_SCRPTR : REF SCREEN_LINE, 
; (171 741 EDTSSA_WkK_CN : REF LIN_BLOCK, 
3 76 16k EDTSS$G_MEM_CNT, 
Ota BIEN tn Pt Fen 
; 3s P ! reen w 
3 7 0745 EDTS$$G_RECS_INSERTED; ! Count of records (lines) inserted and deleted. 
: if8 o7e9 3 LOCAL 
: 178 0748 SCRPTR : REF SCREEN_LINE, ! Address of a current screen Line buffer | 
; 179 0749 NXT_SCRPTR : REF SCREEN_LINE, ! Address of next screen Line buffer 
; 180 0750 REC_NO _! Current relative reocrd number 
3 13) 163 FSTERECNO. ! Relative record number of first Line in the screen data base 
: 188 o78§ ANOTHER_PASS, 
> «6184 0754 WIDTH, 
: 185 0755 DISP, | 
; «6186 0756 COL 
; 187 0757 LEFT 
: 188 0758 RIGHT, 
; 189 0759 DIR, 
; 190 0760 TXT, 
3; «6191 0761 CHAR, 
3 136 b76¢ EN; 
: 132 oree '+ 
: 195 0765 i If we are already going to rebuild the screen data base, just return. 
: 139 3 a 
: 198 0768 IF .EDT$$G_SCR_REBUILD THEN RETURN; 
: 200 O770 3 6 
> 201 O77) i Compute the direction of motion. | 
Be gh 
; 20% O77 IF (LINNOEQL (EDTSS$L_LNO_EMPTY, EDTSS$L_CUR_SCRLN)) OR (.EDTSS$A_SCR_BUF NEQA .EDTS$A_CUR_BUF) | 
; 77 DIR = 1 
3 86 O77? ELSE | 
; 208 778 DIR = CMPLNO (EDTSSL_CS_LN, EDTS$L_CUR_SCRLN); 
: O85 $16 | 
+ 211 781 i Find the relative record number of the old cursor Line. 
3 sig 7 § ! We must be careful of deleted Lines. The convention is that a deleted Line 
: $i 7 ! has the record number of the next lower Line. This prevents deleted 
3 6214 0784 ! Lines before record zero from having negative absolute record numbers. | 
| 
| 


fn 
Tee 


NOTRUNC = fix screen data base in NOTR DT.SRCIJF IXNOTRUN.BLI; 
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x. i 107388-138e 99:38:35 He }#TiNO 
le 

SCRPTR = EDTSSSC_FNDREC (.EDTSSA_LN_PTR = EDTSST_LN_BUF, DISP); 

IF (.SCRPTR EQLA 0) 

THEN 


pesie 

EDT$$G_SCR_REBUILD = 1; 
RETURN; 

REC_NO = 0; 

CASE .DIR FROM -1 TO 1 OF 
SET 


COOCCCOOCCOO mm 
SANs OOo 
WOOOOMC@O@DOCIOD -i1-4 


FW" OO0ONOu we 


SSS 
mo 


WATOMIPONININININININ 4 2 OO SS SM OOOOOOCOCOOOCONO 


C1) : 
ms BEGIN 
The new Line is after the old. We must move back in the work file. 


WWNAIAIPINPOPUNOPINIPINININ 2 SP Os 


Sesssss 
CococDco~ 


BEGIN 


LOCA 


Se tee ha hed 


AAS aon va 


L 
PREV_SCRPTR : REF SCREEN_LINE; 

PREV_SCRPTR = .SCRPTR CSCR_PRV_LINE); 

IF (.PREV_SCRPTR NEQA 0) 

THEN 

BEGIN 

IF ((.PREV_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) 
REC_NO = .REC_NO - 1; 


SRRLS 


END; 
END; 
SCRPTR = .SCRPTR CSCR_PRV_LINE]; 
UNTIL ((.SCRPTR EQLA .EDTSSA_CSR_SCRPTR) OR (.SCRPTR EQLA 0)); 
END; 


HAAN 


(0) : 
BEGIN 
'¢ 


: We are positioned correctly in the work file. 
; SCRPTR = .EDTS$A_CSR_SCRPTR; 


x 
1 
4 
4 
5 
4 
5 BEGIN 
P) 
5 
5 
5 
5 
6 
6 
7 
6 
6 
6 
5 
5 
4 
4 
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POPSPOPIMONINIPININGAINYAS VARIMINININIPINININNININPYNONON Po fo noNPonononononyg 
=OODNOAVE WIN (OC OONO UENO OBNOAOU EWN 0 OOBNAUESWN "OOOO 
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SF WWAWAWAw 


200090000 00 00 G9 Go GD Go 


i CSCR_LINE_IDXJ EQL 0) OR ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0)) 


wef | 
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Oa 080 EDTSSFIX_NOTRUNC = fix screen data base in NOT 1278 08- 1 3b 99:38:38 EDT SRE LXNOTRUN-OL I; "7 seal 
s 27 4 END; 3 
; ig rk | e 
3 274 44 {-1] : : 
; 275 45 BEGIN 3 
; £6 46 '+ ; 
: a ? } The new Line is before the old. We must move forward in the work file. | ; 
; e279 B9 3 
; 280 50 DO 3 
: 281 bges 4 BEGIN 3 
Py 8 26 4 e 
3 Se 4 LOCAL 3 
3 ¢ S20 2 NEXT_SCRPTR : REF SCREEN_LINE; | : 
; Bees $ NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINE]; | ; 
: 288 0858 5 IF (.NEXT_SCRPTR NEQA 0) : 
; 289 0855 4 H 7 3 
; 290 860 : BEGIN 3 
; 291 0861 3 
; 2g 4a) § IF (((,.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) AND ' 3 
; 9 086 ((.NEXT_SCRPTR LSCR_LINE_IDXJ fe ! ; 
3 94 bere g ((.NEXT_SCRPTR CSCR_EDIT_FLAGS) AND SCR_EDIT_DELLN) NEQ 0))) $ 
; 295 865 THEN 3 
; 296 B08 5 C_NO = .REC_NO + 1; 3 
3; 297 0867 5 3 
; 298 0868 4 END; 3 
: 299 0869 4 3 
; 90 0870 4 SCRPTR = .SCRPTR CSCR_NXT_LINE); : 
3 B58 ; UNTIL ((.SCRPTR EQLA .EDTSSA_CSR_SCRPTR) OR (.SCRPTR EQLA 0)); 3 
: 304 0874 END; ; 
; 305 0875 3 
; 306 0876 COUTRANGE) : 3 
3; 307 0877 ASSERT (0); 3 
; 308 0878 TES; 3 
; 309 0879 3 
; 310 0880 '¢ g 
s Sil 0881 ! If we couldn't find it, rebuild the screen data base. § 
3 318 bang te 3 
s 31 088 3 
3 314 0884 IF (.SCRPTR NEQA .EDTS$A_CSR_SCRPTR) F 
; $12 885 THEN 3 
s 316 886 BEGIN 3 
s 317 887 EDT$$G_SCR_REBUILD = 1; | F 
; 318 0888 RETURN; 5 
: 319 0889 : | : 
3 0 0890 3 
3 1 st '¢ ; | 
; § 0 3 ' Now work backwards to the first Line. 
: 357 a 
3 5 0895 WHILE ({.SCRPTR NEQA .EDTSSA_FST_SCRPTR) AND (.SCRPTR NEQA 0)) DO | 
$ 339 0897 BEGIN 
; 328 398 4 IF ((.SCRPTR CSCR_LINE_IDX] EQL 0) OR ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0)) | 

| 

| 
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Oc e000 EDTSSFIX_NOTRUNC = fix screen data base in NOTR 12-808-13be 99:38:38 EDT SREIFLXNOTRUN: BLT 24 . (3) v04 
3 9 899 3 THEN : 
3 0 9 » 4 BEGIN : 
: ? 0904 ? PREV_SCRPTR : REF SCREEN_LINE; ° 
; 5 905 4 PREV_SCRPTR = .SCRPTR CSCR_PRV_LINE); : 
: 7 90 5 IF (.PREV_SCRPTR NEQA 0) ‘ 
; 8 908 4 : 
3 4 $4 ; BEGIN : 
; 41 a311 2 IF ((.PREV_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) THEN REC_NO = .REC_NO - 1; : 
5 rk b918 4 END; : 
3; 344 0914 4 : 
3 «64345 0915 END; ‘ 
; 346 0916 ‘ 
; 347 0917 SCRPTR = .SCRPTR CSCR_PRV_LINE]; : 
3 eee 0918 § END; : 
; 349 0919 ; 
3 $20 +4 Y FST_RECNO = .REC_NO; ‘ 
3 $26 43 ¢ i If we didn't find it, rebuild the screen data base. : 
; 354 0924 : 
; 355 0925 IF_(.SCRPTR NEQA .EDTSSA_FST_SCRPTR) : 
3 328 0926 THEN : 
3; 357 0927 BEGIN : 
; 358 0928 EDT$$G_SCR_REBUILD = 1; : 
; $2) 0929 RETURN; ‘ 
3 0 0930 END; : 
3; 361 0931 
3 o¢ 9474 '¢ 
; 093 ! Recompute the end points of any Lines which have changed. 
: 364 0934 le 
; 365 0935 
: 366 b3 38 DO 
: 367 O33 BEGIN 
; 368 0938 ANOTHER_PASS = 0; 
: 369 0939 REC_NO = .FST_RECNO; 
; 370 0940 SCRPTR = .EDTSS$A_FST_SCRPTR; 
: 371 0941 
3; 37 m6 DO 
3; 37 9435 & BEGIN 
; ie ot) ? UPDATE_DONE = 0; 
: 376 mee 2 IF (C(.SCRPTR CSCR_EDIT_FLAGS] AND (SCR_EDIT_MODIFY OR SCR_EDIT_INSLN)) NEQ 0) AND ! 
: 377 94 ((.SCRPTR CSCR-EDIT-FLAGS] AND SCR_EDIT_BELLN) EQL 0)) 
; 378 48 4 HEN 
3; 379 949 BEGIN 
; 380 950 '¢ 
; 381 2) : Compute the width of the current Line. 
; 5S 338 LEFT = .SCRPTR CSCR_CHR_FROM]; 
: «384 954 
; 385 955 6 IF (LEFT EQL 0) | 
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Pr19be 99559309 FED T Rede Teno RUN OL f, 


T UNC 1 
X_NOTRUNC = fix screen data base in NOTR 1 


ake 


ee 
i 4 

" 
=—m 


1 W1D + .EDTS$G_SHF; 


mMocw moto 
zZzoem ZOem 
orong orvoon 


+ 
We must compute the width of each character to see how many will fit. 


if NOT EDT$S$SC_MOVTOLN (.REC_NO)) 
BEGIN 


1+ . 
Something appears to be wrong with the screen data base. Rebuild it. 


EDTSSSC_MOVTOLN (0); 
EDT$$G_SCR_REBUILD = 1; 
RETURN; 


T: 


CLIN_LENGTH) - : 
“LEFT); 


N »LEF 
5 SSA_WK_LN CLIN_TEXTJ, 
A’ 

EN GTR 0) AND ((.COL + EDTSSFMYT_CHWID (.CHAR, .COL)) LEQ .WIDTH)) DO 
LEN - 1; 

IGHT + 1; 


G 
+ EDTSSFMT_CHWID (.CHAR, .COL); 
RCHAR_A (TXT); 


IF (.LEN EQL 0) THEN RIGHT = 255; 

IF (.SCRPTR CSCR_CHR_TO] NEQ .RIGHT) 
THEN 

‘. BEGIN 


i This Line's width has changed. Store the new width and 
arrange to recompute the width of the next Line. 


SCRPTR CSCR_CHR_TO) = .RIGHT; 
IF (.RIGHT NEQ 255) 
THEN 

BEGIN 


LOCAL 
NEED_NEW_SCRPTR; 
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IF 


44 
i We need a new screen pointer. 
Bf Otherwise rebuild the screen 


NXT 
IF 
THEN 
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3 
RUN = Fix screen data base in NOTRUNC 1 a3 Sep 9° 138% 99: $9: 35 yAx 
-NOTRUNC = fix screen data base in NOTR 14-Sep- ED 
weep NEW_SCRPTR = 
T_SCRPTR = Te RPTe CSCR_NXT_LINE]; 
IF (.NXT_SCRPTR EQLA 0) 


_NEED_NEW.SCRPTR = 1 


EDT 
EDT 
4 EDT 
5 NXT 
51 TMP 
25 NXT 
5 SCR 
54 
55 
56 
57 NXT 
58 END; 
59 
60 
se 
O68 
4 BE 
065 EDT 
066 EDT 
067 RETU 
068 ENDS 
069 


-11 Ollie. 
T. SRCJFIXNO 


a, NXT_SCRPTR CSCR_CHR_ FROM) EQL 0) 
(.NXT_SCRPTR CSCR_E ort FLAGS] AND Scr “ebIT DELLN) 


NEED_NEW_SCRPTR = 1; 


IF .NEED_NEW_SCRPTR 
BEGIN 


If we can get one easily, do so. 
data base. 


LOCAL 


TMP_SCRPTR : REF SCREEN_LINE; 
_SCRPTR = .EDTS$A_FST_AVLN; 
(.NXT_SCRPTR EQLA 0) 


BEGIN 

got $$s¢ MOVTOLN (0); 
EDT$$G _SCR_REBUILD = 1; 
SOT eRRT 


END; 
$$G_MEM_CNT = .EDT$$G_MEM_CNT + 
$$G_RECS_INSERTED = .EDT$$G_RECS VinsERTED +1; 
S$A-FST_AVLN = .NXT_SCRPTR [CSCR_NXT_LINEJ; 
aSCRPTR™CSCR PRV LINE] = - SCRPTR: 
“SCRPTR = 2 SCRPTR SCR_NXT_LIN 
“SCRPTR CSCR_N TL INE = .TMP etiore: 
PTR CSCR_NXT ~ INE = .NXT_SCRPTR; 


-SCRPTR CSCR_EDIT_FLAGS) = SCR EDIT_INSLN; 


NXT_SCRPTR CSCR_LINE_IDX] = .SCRPTR CSCR_LINE_IDX] + 1; 
IF (NXT_SCRPTR CSCR_LINE_IDX) EQL 0) 


GIN 
$$SC_MOVTOLN (0); 
me as SCR_REBUILD = 1; 


2 eee tt 
TRUN.BLI; 


EQL 0)) 


IF (.TMP_SCRPTR NEQA 0) THEN TMP_SCRPTR CSCR_PRV_LINE) = .NXT_SCRPTR; 


aa 


3 
XNOTRUN = Fix screen data base in NOTRUNC 16-Sep-19 4 90:36:36 AX-11 Ol its 
IX_NOTRUNC = fix screen data base in NOTR 14-Sep-1984 12:25:0 EDT.SRCIFIX 
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| adad 
an 


=-32 V4.0-742 Page 1 
NOTRUN.BLI;1 (3) 


ee 


lf we are undeleting the current Line, adjust the record number of the current Line. 


IF (CC.NXT SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) AND 
(,NXT_SCRPTR EQLA -EDT$SA_CSR_SCRPTR)) 


COOCOO 


GESEANSS 


0 SUBLINE (NUMBER_ONE, EDTS$L_CUR_SCRLN); 
NXT_SCRPTR CSCR_CHR_FROM] = ,RIGHT + 1; 
NXT“SCRPTR [CSCR-CHR-T0) = 255; 
NXT_SCRPTR SCREDIT _AINEOS) s gi 
NXTSCRPTR SCREDIT“MAXPOS = 255; 
NXT“SCRPTR CSCR-EDIT-FLAGS) = (.NXT_SCRPTR CSCR_EDIT_FLAGS] OR SCR_EDIT_MODIFY); 
ExT aenPTR SCREDIT“FLAGS] = .NXT_SCRPTR CSCR_EDIT_FLAGS) AND ( NOT SCR_EDIT_DELLN) 
ELSE 
BEGIN 
‘4 


; We have reached the end of the record, make sure there aren't any more Lines allocated for it. 


LOCAL 
RECORD_DONE; 


dO 
BEGIN 
NXT_SCRPTR = .SCRPTR CSCR_NXT_LINEJ; 
if < nT ACaP ye NEQA 0) | 
BEGIN | 
IF (.NXT_SCRPTR CSCR_CHR_FROM] NEQ 0) 
THEN 
. BEGIN 
i If the next Line is marked as insert, then we have a strange state: the Line | 
| 
| 
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' was apparently inserted one and then truncated before we had a chance to 
' update the screen. Rather th 


an trying to handle this case correctly just 
rebuild the screen data base. 


aozrrmpDN 


IF ((.NXT_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_INSLN) NEQ 0) 


OWE WR OOO NOA UE WN 09 ODNOU EWN 9 OONOA UE WAR 0 OONOUS WhO 


AUnFWN—OOOnou 
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THEN | 
BEGIN | 
EDT$$SC_MOVTOLN (0); | 
EDT$$G_SCR_REBUILD = 1; | 
RETURN? | 
END; | 


'¢ 
' Mark this as an independent, deleted Line. The block will be discarded by the time 
the screen updater completes. 
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SCRPTR FSCR_EDIT FLAGS] = SCR_EDIT_DELLN; | 
SCRPTR CSCRTLINE~IDX] = 0; 
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dD 3 
OTRUN = Fix screen data base in NOTRUNC 1o=se0" 138? 90:86:38 AX-11 Ol seen V4.0-742 
-NOTRUNC = fix screen data base in NOTR 14-Sep-1984 12:25:0 EDT. SRCJF iXNOTRUN.BLI;1 
NXT_SCRPTR FSR. CHR_FR M) = Q: 
NXT_SCRPTR CSCR_CHR_TOJ] = 255; 


+ 

! Since a deleted Line has the number of the next following non-deleted Line, 

if we are deleting the current Line add one to its Line number. 

c sachs estate EQLA .EDT$$A_CSR_SCRPTR) ! 


ADDLINE (NUMBER_ONE, EDTS$L_CUR_SCRLN); 


EDT$$G_RECS_INSERTED = .EDTS$$G_RECS_INSERTED + 1; 
SCRPTR-= .NRT_SCRPTR; 
RECORD_DONE = 0; 
ELSE 
RECORD_DONE = 1; 
END 


SE 
RECORD_DONE = 1; 


END 
UNTIL .RECORD_DONE; 
END; 
END; 
END; 
IF ( NOT .UPDATE_DONE) 
THE 
BEGIN 
IF (.SCRPTR CSCR_NXT_LINE] EQLA 0) 
. UPDATE_DONE = 1 
BEGIN 


LOCAL 
NEXT_SCRPTR : REF SCREEN_LINE; 


NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 


IF Oh) eenere RPTA-ESCR FLAGS] AND SCR_EDIT_DELLN) EQL 0) AND 


(.NEXT_SCRPTR CSCR_LINE_IDX) 


o L . 
((ZNEXTSCRPTR CSCRTEDIT-FLAGS) AND SCR_EDIT_DELLN) NEQ 0))) 
REC_NO = .REC_NO + 1; 

SCRPTR = .SCRPTR CSCR_NXT_LINE); 
END; 


Se Ge ee Oe Ge ee Gee 
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creen data base in NOTRUNC 1 


“NOTRUNC - fix screen data base in NOTR 1 


END 
UNTIL .UPDATE_DONE; 


END 
UNTIL ( NOT .ANOTHER_PASS); 
EDTSS$SC_MOVTOLN (0); 
END; 


OFFC 00000 
5E 14 C2 0000 
01 000000006 00 €9 0000 
04 0000C 
53 000000006 00 D0 0000D 
53 000000006 00 01 00014 
OD 12 00018 
000000006 00 000000006 $9 Bi 00010 
9 13 00028 
000000006 00 000000005 00 D1 B58 A 
51 000000 96 6 se 00 ; 
50 900000 00 ; 3¢ 00% 
50 1 D1 0004 
oF 1F 00048 
1 \s OO4A 
29 000000006 98 D Bpeg 
5 0 bi 0005 
5 1€ 00056 
52 5 cf Otte 
4 12 8080 
¢ D4 O005F 
03 11 00061 
52 01 00 00063 
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Sep -1984 :5 AX-11 Bliss-32 V4.0-74 
Sep 71982 99: $¢: 36 YEDT SRede FIXNOTRUN.BLI; 
! of routine EDTS$FIX_NOTRUNC 
TITLE EDTSFIXNOTRUN EDTSFIXNOTRUN = Fix screen d 
ase in NOTRUNC 
IDENT \V04=000\ 
.EXTRN EDT$$SC_MOVTOLN 
EXTRN EDTSSFMT_CHWID, EDT$$SC_FNDREC 
EXTRN EDTS$A_LA_PTR, EDTSS 
EXTRN EDT$$G~SCR_REBUILD 
EXTRN EDT$S$A-FST-SCRPTR 
EXTRN EDT$$A"FST-AVLN 
EXTRN EDT$S$L-LNO-EMPTY 
EXTRN EDT$$L~CUR-SCRLN 
EXTRN EDTS$S$A~SCR-BUF, EDT$S$A_CUR_BUF 
EXTRN EDTS$L~CS_CN, EDT$$A_CSR_SCRPTR 
EXTRN EDTSSA-WK-LN, EDT$$G_MEM~CNT 
EXTRN EDT$$G-SHF, EDT$$G_TY_w'D 
EXTRN EDT$$G~RECS_INSERTED 
EXTRN EDTSSINTER_ERR 
PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
ENTRY EDTS$FIX_NOTRUNC, Save R2,R3,R4,R5,R6,R7,- 
R8.R9,R10,R11 
SUBL2 #2 
BLBC EDT$$G_SCR_REBUILD, 1$ 
MOVL  LOW_2, R3 
CMPL  LOW"1, R3 
BNEQ 2$~ 
CMPW = HIGH_1, HIGH_2 
BEQL 5$ 
CMPL EDTSSA_ SCR_BUF, EDT$$A_CUR_BUF 
BNEO $ 
MOVZ2WL HIGH_1, R1 
MOVZWL HIGH 2. 
CMPL ~=soaR1, R 
BLSSU 3 
BNEQ $ 
MOVL  LOW_1, RO 
CMPL = RO, “RS 
BGEQU 4$ 
MNEGL #1, DIR 
BRB 6$ 
BNEQ 5$ 
CLRL =O 
BRB 6$ 
MOVL #1, DIR 


atab | 


Pete Se Se Se Se Se Se Be Se Se Se See Se Se Se Se Se Se Se Ss Se Be Be Be 
oO 
Ns 
~~ 
co 


De Re Be Be Be SH Se Se Se Se Se SH Se BH se Be Se SH Be Be Os Se Se Ss Oe Be Se Be Se SH Se SH Se Se Se Se Se Se Se Se Se Se SHES ae ee Sees 


— J 
| oOo 
w> PS ee eS PS HS PS FS HS HPS HES HS HS TS HSCS SSS HTS *S HSS HSS SS FSO FS HS FSFE HSE FE tS 


rn «OO o wn nro woawworw wert OoOanwnmM +oOoNw rw [- o] re ew 
-—-~™ od ao oo Koo He Ne AOstonnoo oorr o ao o ooer -—om 
~~ ~~ ~ RK con- a @0000 000000 ™Or-OCM0dwO daoadd o a te] Son aa 
® So o oo ooo Soooo°o°o Oooooe°ce ocoooe o Oo o ooo oo 
oa Pe Fete FS FS FS FS FS FS FS FS FS FS FS FS TSF TS FS FSS FSS HSS HSS FSS HSH SHS HSHSHS HSS SHS FS SSS FSSC SS SCS FSCS SCS FESS FE se sera rsere 
i) 
a 
Ne 
Tes 
Pe 
‘i 
ow 
ee. a < < a 
wz ~ 19 - - oad _ _ eh 
>a> a ~N a a oO a a Oo 
< ww _— a <= « _— a « ~N 
Ne ~ a =) se 1) ev -_— < 
moO : = . w “” a . ” “” « _ . 
‘2a gh ' =< A — 4 ‘ “aa s- 
wx ww a N= « -_ ve oO a a « . oc « 
ne oa@mw a vo ” eo vw =— —- “ew YY « Ne Fe 
— cra w ”» a ew -_ i Qa Fw ve = "ny a 
_—— aa t - tt ec wm 1 a - 7 a@ast ‘a -_ tt ec = 
Ow - @& a a> vw act ee x ane vw act <= <« a>—Ci MC 
[+ 4 wZzu w aw 4”) ace Yew coe WwW we fa ww aw 4” « 
ww pe ee N — -—-a ' we no 2 =e ' ne feoew -—-a 'w 
- @ w& a z a.aClUmDPllUM v aan > _ co t aakelUC OmhUM 
te ed <xwMa _ [+ 4 uJ a a -_ cc x “a a ee < (vv) 
<a a Sef 7 enwvs & ew no Aa VeUelWw OR w wae ~~ wr = . 
qw jAA2. —-t 8 De: ee ee * y,e gece wuw 2 « “ =e wen a ~~ 
us —-—= ses —- —- we ~~ Fe '(—_ ~ | & . ts - ~c ~~ 
—-Aa0VU OBeeweeanai Me MOrac « <x<«ame moac aee«étecekca Me mor 
Awww 2 oeoow a\naQa -—2Z2arF- A Gf xX &§ 2e— —-— — Oe &—- S&F Ka -— Za 
aw #2708886 VY « xa a fA wow w ea a a wea a vw < = 
M— 8 2 RHVGTHAA WMA COM OVUTMTAHH-BHOSA +ZA ONT e#H#He*He -—-TGHIEWMA WHA wvwes 
—QOWO SAW TFT MOOPR ~~ — VMNINIW MOR. VOPF- OR. ~ ONY NNW OR. Ot VARA OV OE YON MNO WOM 


No 
MNO Owre@ovwetoren- Be Oe Bw BEY NR NOE We TK BOW BE TN NE HF. WUD Bae waew 
om 
or 


@ 
oo #8 +S tne T=) Ww 
om Fed wwES ~~ O84 2 BIO oF ot On JIIIWIOIOG IIIS a J 
o- Mr>Oog>w3zcno oaOrGV2>0MV 270 46 wWOrOr>IO ve GVVF0 Oe woaw>oa dr Oor-Ou>0KVU>Q0 
PDO 7[<to2zac uss <ISFYWDOWOWOPtwKYrSCOTtCOwOwAZOtwVZE ZOZwWw » woowowoc 
pe 4 AEwMv7TOOww - YOr-OOFTOOOZ®VCO-OOLTOLOO>- OOF VO- OVC OZ’ O- O- ODOZTOOOZO 
ow 
or 
ss 
aa - 7 + - 
mee os ee aa aa A fa A ho os wh a ead 
ww fA A oOo - N wm wT Wo ~ @o ao oOo 
13 o ~o oOo _ _— _— - =— aod _ _ a N 
uw Ov 
-— OCOOL wo WOMWN Oe FOC OWT OO & RMR Oi — OD UPI COWS VWOKWUN Vue - OOD 
oorr-r oa OOd ded COMODO VVVVVAO OO OWWWWe ee HL OOSOCS eR eK RK KK NOUN 


ve BDOOOCoCoOoCoOSoSo OOoOOOCOCOOCOSOOoOOoOoOoOOOCOSOOOSOSOSSOSOSOSSSo ek KK KK eK eK ee ee re 
z2— oSOoOOCoCoooooo SOoOQooooooooooooooooooooooooooooooooooooooooooo 


pAnNor RUN 


z3 SOooooooooo SOOCCOCOCOOCOCOOSOC COCCCSOSOOSOSCOSCOOOOOOCOCOOCOOOOOOOooOoO 
_— WM DOV Tu OM WM — OMOP- OK MINN OO — OQMOUIM = OOK MN KH NOK MMM OMOr- Om 
$ Cc OOwu Oe Maw ee Om WO WOOO On Oe Om wer WOOO On On OOo Or Om won woo 
- 
Ce WOOCMUOMD OVO SAMA SOME. P99 EE O99 OWA OPIN TICE OOO MA CUP CU OPN 
- , zOowmor et ee OW LOOOOCOM OMWN QMO F< — SO LOOM LMNOMN OQMNDOM- MN LOOWOOOMVOGa 
eo Oo Oo 
w Oo o o 
ese OO co o w ts] w o oo 
ae «oO o o Oo o o So o 
© o o oS 
eo So o So 
ra o o So 
ec o o o 
ve o So So 
« ° o o Oo 
@v ooonm nr o mo Oo MO ma Oo ™ Co MO o -- mo oO 
° ) Mmoow = o <n <« mo wwnid <= wo o ww <«w <« ww 
vx Oo 
ar ovo oO o o Oo 
_ oo “ Oo a a o a a So oS a a 
~ oo om o o o So o oO oS So oO o 
al | oo o o o So So 
ve oo “ Oo o o o 
v oo - o o So So 
‘2 oo — o t=) i=) o 
oo — o o So oS 
3 a oo ve o o o o 
— 
=o uw Nw =) N =) ~N Y N 
-—-Zz ~ oo o Oo Oo o oO Oo 
Oo ft o 
z= Oo 
xe 
_— 
un 
A 
ee 
aa 
pverey) 
i 


es 
a 


—vJ 
oo 
uw> 


eth itt at a oe a ne oe oe oe oe oe ee PPT eee oe eT ee oe) er er eee ee er er ee er 2 ee ee ee ee ee es Bs es ee 


wn OW @amoo~wo ww On see N Mmrwnr acon nw ~ ro 
“SOS Soose Soo FS Saco cS FOOe ooo oe & SS SS 
= oo 
© oo Cooooo ooo So OOOO o oooo ooo oo o end -— 
oa ed ee ee ee ee ee ee ee ee ee oe ee oe ee ee oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe ee ee ee ee ee SSCS S SSS State se *etetetetererteareareare 
«a 
a 
Ne 
Ts 
Boe 
‘. 
om 
se a — 
wa _ = =x 
>a a _- o 
< a a _ 
Ne vu _ « a 
MoO ” za oa 
‘2 Aol 2 . a 
wx . wT . a) a a ~ [+ 4 
a— Oo oa N a oO _ _ a ~ vw 
—-“a 2 ae _ _— oOo _ | = I _ a ” 
an ns a —_- Fs > a =< =x = a _ a 
ow w Cec Mm ~uOo |i Oo = =) v a a ee 
= « we 8 ewae = bo _ ' 4 Vv a a-™ 
-—w a Yew -oa = v 4 “x= aa a wn vw az | 
- = w qw « a .- 8 vw ond mod = = -—~ mw we 
‘—- Wn < +-2a~ ec wo ~~ 1 oz aA om xo ~—wa ” -s | 
<a ws aouMoae vate oOo # waza aew a =z A One orm | i 
aw eauare AZMNA .o Bwuss A he _ —-2® 3a | 
>w ss aw | ae —— -—A ee -oOa nl aes we } 
oa ww<two mavoa Cam < -A + oae ao oc ss. za | 
ae =raeweewo —-aemw aZww A + wanna w 3B _ wo om be = 
a. —- maw vee o t AA wee < . x= = w =z==xz au 
VERROe-O~RRA OK eMIMOTY + Mr Ou I~ XKXZHIF +3 MZVIC + MZRWHM MSUVSOUUM 
NO WOKUNZMOGAMMF. cw OOO OR. ~ Ww Om OE I~ HOO BTUNOOCOW $0 BVOC WI NOK. = mown 
| WO Aw fu wd VS BOwes UVOOINE BET or I~ MOV RUEM UEOVAa SN UMBRBaMs eanen~sr 2 
om 
wr — J =f wl | 
| os om a2" Ovooea a We a me a> 
i om 464s UII IDIG NUUUIOU zrowm UNL NMIOTIsIIIeysysTtryy wane @O.90 
j oOo oF et ey FF pet FF ee Fa a RR SES ed 5 TFS TFS 
Ofwet t100 $$ 22 ODOC Z IZOD< ITOO2O0O0M uD Ve OoztVUwsZzTIT Ie ocuzostzZzcostZze uo | 
WTF BeOOVrET FS CM@MOOEE <-OVYOTAVMMTEDE“%EZE>-MAAVIVMS—-40004 Or DEV OME OOv=E 
j on | 
ror 
|= 
aa 7 + 
| Meo cry Pom Cores Go @ aa ee ca ost Cad a2 
wwo- N Lal ww or t- «) ao oO _ N a) 
erm N ~N un num ~N ~N ” ” pa) a) 
| — Be RS Se ee 28S ee on OOMD Ve K— PUND&e VOO fUW DOMOunr- MBoowrwmdoow 
FFT TFTNNN OOO OP-P-P-P- DODDODOSCOOO fe ee eC OODOOMDOMODVVVVV COC OwWwwwne 
Se See ee OO OO CC CO CC CC CC CC COM 
| Z— DOOOOCOOOOCOCOOCOCOCOCSCOSOSOSOSOOCOOSOGVOOOOOCSCOOCOOCOCOOCOOCOCOOOOOCOOOOOOOOOO 
| — One Me— FOOT MN 0 LOCK MNV ST — WOOO O 4NWWENNOODOe Tr OCOODORK—NVN<EONK Oe Nevo 
$s C BO—MAGOOOC—MWE OVO O-— 8 B4 UMODOVAOAO— OB4 VO— OOBO84L Ve OK OW MAO MAS 
= 
CH OMMO Ww 0 LWM OQUMOOM TF DTFTOO—- OMOOMOM OO LDWVUDOME PF. DWV OT HOMER MOOM 
- - - 
e2 o o o < So o 
| w i) oO Oo 
| ee ovo a ao ~N o ~uw w wT oH s 
| yor ooo oO oo oO o ou So So re So 
j a o o So 
ao So So S 
~ oOo o o 
| ec oOo o o 
| ve Oo o So 
| et Oo Oo o 
ev we om / MUNCO oom OOO m@rw oow oo i) mu N 
> o «ww wn Oo <IMnNo w oO MMMNMNO owe ow Wo <a w 
vw = 
or oOo oOo oO oO 
- vw a o o o w oS <u 
* Oo oO o o co Oo So ou 
a | So So o So So 
- So So o So [=] 
ev o oS f=] So [=] 
‘2 o So So S [=] 
| o So So So oS 
z= Oo 7 o o o 
co te] w ~*~ 
-Zz 4 be 
o + 
| 2x 
> Sand 
— wT on 
uA oO o 
A 
| aioe 
i aa 
(verve) 
z ~ 
|g ” 
8 
a 
| = 
| @t 
on 
u> 


SOMMTORSM MO Krwoo. 


~ oO ooo 
HM — NW NIKIKIMM se TON noorr Kr —ODDWDOSCAO K§—K— Kem Mmosro. 
- oo OOOOOCOCoOoOoOooo°oo ooooo oO COOOOCCOoOCOK— S§K— ec3reee — oeceene 
Sh el ee eee eh ee ee ee ee ee ce eh Sh ee el ee ed an De eh ee ee oe el ee ee -<— Se ee el oe el oe oe ronroneenrm 
© 
oOo Pete ea Fe FS FS FS FS FS FS FS FS FS FS FS FSS SPSS FSS HSS SHS SHS FSS SHS HS FS HS HS HS SS HS FSS SCS SCS FS FS FS HS FSCS CS FSFE FE FE SE FE te 
«a 
a 
Ne 2 
wee at [* 4 a 
he > ~ _ _— 
‘us « < a a a 
om = 4 = « ce 
ee a ti ~~ a wo uw 
waz a nn a ~ « ” ~ wn 
>a oP Vv “ _ ae wow Wi a ee t 
a wn [7,) i a —- Ww Oa od m a a 
Ne ~~ a <= ean a mw a a ~~ ad “ 
mo Ar aan OE <c =) cn _ oa w Qa 
‘2a ar x< wAea ne ~~ x - 1 va a * 2a t ws 
wx ~eMmMaZ ec oO YnZ -—<t nena ~~ a0 — -<« —a 
no ca. woavur-a zxc~S- «cer aacagec ww ce ow fc& «ce cre 
— —a ss Wwwaewnxvo aroao rw ww Ww eee - -xc -—- we wo 
_~r avaez ww») w B&W za. wr > > =xwvna a 4 aria are Wa ww 
@mw eeu &§- ez  wa~Tw Kae: €Qa <« <« 20eca < 2s <= «a au 2 
a a v6 _Qa> 2 Ew ~oRr ow WY Ww ~ Bev x =~ YY we YVeuw =n o 
—-w a w3aant wow mee el: <n e) Oormunn 2c ww on Maw 1 a 
- - tuw ne wc . ._ ts . . > ae ee | _— 'w it -— > & w ww t 
te Qa &§ 2M Braz -<aeac ageareac aoa Zee -_ a &-& WO FOAareec =< vez a j 
xa =e «<K |  wwe~K~n ee EE KOE OK hlUcra ECOL eK KC CUrElClC XK hCUM MA KEKE COC OH OO | 
aqw ~~ Zostvuw £aw waaa azwyw 2a Oo00 e€t0OZZZ2 a vw 2 #eH B2ZewzAa 3 ezacacs o | 
>w ww ~wuw | (en esaaeanc aeuw ~a 333 9O05¢e~~Y~y~ §—-& WW WY F&F ~OwE ww CO Kk IY | 
'mweseet OO MALCeV YVMw~ Mw tee Bde NRO oo ims aco MM Hw ' Bova w 
—- =—Zz PR ROKK AYNYW Ye DO @§—Y Kee Seer — CF Knee Oe wna «= 
a Om *Mexaw tt it q ‘nwo - w ~~ x a ee 'iwn &§-wes © 
PAZA = tue — ZTMO-AHe— += AM HET SHK WH + + MYNHZM WM *« « Ze ALMA KE OM * | 
NO TMM WOOD OWH Ow EXE O MN KO tO We TR SNS NM ON OO KO 
WO MOMS BS ZwMwws Ov Ze MZRBeveZMuuuMZeBeBeevwswsowBizae BOB ZruvrZwZzewvre 
om 
or = | 
| +. ~ > maoOamcc ” 3 
| om 4M@C Sess III IIMS OC OI IIIS BONMVADM 48u4i@das sons OBBVIGIOBZIII 
} So-—- Brew rO>OVU> SP > >+ OFS PAG VAWrPVA WYO sWwKHVOS>S-—GBVE I> SP eweawowvovo>sca> 
| WMZOO JOWZZOOCOCOMWOOC OWOE ZOwE IW00 2 3F Owrw@ If Ow IUZESZZZZZOuIZO 
| TTF OF OOZOLO—-TEFEFEF-OEEZEIOOY OT OYMOKLTETEOOOL® @O+ODOVVTEFVEVO—-O=—-F oe 
oon 
r= 
se 
aa 
i) owe meee w 


K— ODMDOWUMMBDe —P- OWMDO VOT OO OLN GMM VUE O- O Ou ro ENS A Deeb tet pete Ay 9 
= ed orahaharirirarnansraranaenahonenatdadareraramaantaate «<4 2a ce OODODOYwwvooana 

NANA ONIONS NOOSA ONION OOOO ONIONS OOOO 
ze Bo 8h hh hh hh SSB OS SS SS SS SSS 


| 
| 
moe AM PAW? ee a eon eA we oo 
mm ww or-@ o Oo - NN Mm wT wo 
nm wr wr wy wT wT 
ze SOSSSCSOSSSSSSSOSSSOSSOSSSSOSOSOSOSSSOOSSOSOSSOO 
a MNMOOPOMODOOOCCOMMOO RK MK — NOR. — OF. — OwWO << -OMNMe- wv DOT OW VON OOOO 
Ss H—O- WOWO— COBOBBSB44—B00-—WO— BOO — DOODDD-—O-O-—- WOU BOO ODO-OA-—-DA06-4 
A. 
CH ANON —CO~F COMIMMONOMNUINK NNN VOOO OO LR RK OM ENN WRK OE WO COOONM 
| “2 SOOOMNOMOS CNEMAMNNONOOMNOM = -GOSCSKSCODOOCON aE +EITORCO CLONOOOSCOMMOO 
e2 
w o vo VVes © o ve 
aa oa co Sow w ooo SO u z-~ Oo co co sco 
ae Oo co ooo oO ooo So u co So cs soo 
@ So oo oso oO cs sco 
ao co sco coco oO cs oo 
| ~ o oo ooo oO oso oo 
ec co oo coo oO cs soo 
ve co oo coco oO cs co 
i co oo cco SO Ss oo 
@vu ~worcr omownm own wo CO lO mcucucum Cw uu COO NN NWO ~ w 
eu nw ounaa eoaqaq <O Wn WH weiacacac <x< co < <«<o w wn 
wx 
wn ru) o CTC) o 
a a o wy an ao <xvaa a coo a <o 
os So So oo co Soo sooo csc oo Sc oO 
- oO oS oo oS 
“e So So oo So 
vw So So so So 
‘Zz So Ss co So 
So co So 
za So So coo So 
Eo LA) Nu Ow 
=< _ 
=s Oo =< N 2 - 
ot 
2x 
Om ee 
eo [. *] oa 
ua o o 
AA 
Cen 
| aa 
| 
| 


ps 


s-32 V4.0- 
XNOTRUN.BLI; 


YebT sRedel 


Sepct9Re 00:26:58 


« 
TR 1 


creen data base in NOTRU 
x screen data base in NO 
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795 bytes, Routine Base: 


; Routine Size: 


3g 1 
93 1 !<BLF/PAGE> 
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EDTSFIXNO iss 
EDTSSFIX_NOTRUNC = fix screen data base in NOTR 14-Sep-1 DT.SRCIF IXNOTRUN.BLI; 
3; 625 1194 1 END ! of module EDTSFIXNOTRUN 
: 636 1195 4 : 
3; 6 1196 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 795 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Be Shoe SERS Ei roa cee | | al) ange Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$355$DUAg8 :CEDT. SRCJEDT L325 377 57 15 40 00:00.2 
: _$255$DUA28:CEDT.SRCIP 03231 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
: BL SSE Cec CRS CETELD, INITIAL .OPTINIZE) /MOTRACEBACK/L IS=L1SS:F JXNOTRUN/0B.J208J$:F JKNOTRUN MSRC$:F IXNOTRUN.BLI /UPDATE=(ENHS:F 
Size: 795 code + 0 data bytes 
Run. Time 00:4 
Elapsed. Time: 00:49. 
Lines/CPU Min 1659 


Lexemes/CPU-Min: 9113 
ry Used: 323 pages 
Compilation Complete 
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